;; 最简单的call/cc测试

(display "开始测试\n")
(define result (call/cc (lambda (k) (display "调用k前\n") (k 42) (display "调用k后\n") 100)))
(display "结果: ")
(display result)
(display "\n")
(display "测试结束\n")